package TPSReport;
use Moose;

extends 'Document::PageWithHeadersAndFooters';

augment 'create' => sub{
	my $self = shift;
	$self->create_tps_report;
	inner();
};

sub create_tps_report {
	(shift)->append_body('<report type="tps"/>');
}

__PACKAGE__->meta->make_immutable;

my $report_xml = TPSReport->new->create;

print $report_xml;